home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Tools 2
/
Amiga Tools 2.iso
/
amiga-magazin-pd
/
10-94-6
/
battle field creator
/
install_hd
< prev
next >
Wrap
Text File
|
1995-03-09
|
4KB
|
160 lines
(makeassign "BFC" (pathonly @icon))
(set dir
(askdir
(prompt "In welchem Verzeichnis soll BFC installiert werden ?")
(help @askdir-help)
(default "DH0:")
)
)
(set dir (expandpath dir))
(copyfiles
(source "BFC:DATA")
(dest dir)
(choices "BFC.info")
)
(set dir (tackon dir "BFC"))
(makedir dir)
(makedir (tackon dir "MAPS"))
(copyfiles
(prompt "Kopiere Dateien nach %s" dir)
(source "BFC:FONTS")
(dest "FONTS:")
(choices "BIC.font")
)
(copyfiles
(prompt "Kopiere Dateien nach %s" dir)
(source "BFC:FONTS/BIC")
(dest "FONTS:BIC")
(choices "7" "9")
)
(copyfiles
(prompt "Kopiere Hauptprogramm nach %s" dir)
(source "BFC:")
(dest dir)
(choices "BFC")
)
(copyfiles
(dest dir)
(source "BFC:")
(choices "BFC:DATA/Battle Field Creator.info")
)
(set bi2
(askoptions
(prompt "Welche Disketten besitzen Sie ?")
(help @askoptions-help)
(choices "Battle Isle (TM)" "Data Disk 1" "Data Disk 2")
(default 1)
)
)
(set bi
(askoptions
(prompt "Welche Disketten sind bereits installiert ?")
(help @askoptions-help)
(choices "Battle Isle (TM)" "Data Disk 1" "Data Disk 2")
(default bi2)
)
)
(if (= (BITAND bi 1) 1)
((set Pfad1 (askdir
(prompt "Bitte Battle Isle (TM) Verzeichnis angeben")
(help @askdir-help)
(default "DH0:BlueByte/BattleIsle")
)
)
(set zz1 ("Assign BI2: \"%s\"\n" Pfad1))
(set z1 ("Assign Computer: \"%s\"\nAssign LIB0: \"%s\"\n" (tackon Pfad1 "MAP") (tackon Pfad1 "LIB")))
)
)
(if (= (BITAND bi 2) 2)
((set zz2 ("Assign BI6: \"%s\"\n" Pfad1))
(set z1 ("Assign Computer: \"%s\"\nAssign LIB0: \"%s\"\n" (tackon Pfad1 "MAP_N") (tackon Pfad1 "LIB_N")))
(set z2 ("Assign LIB1: \"%s\"\nAssign LIBe: \"%s\"\n" (tackon Pfad1 "LIB_W") (tackon Pfad1 "LIB")))
)
)
(if (= (BITAND bi 4) 4)
(
(set Pfad3 (askdir
(prompt "Wo ist die Data Disk 2 installiert ?")
(help @askdir-help)
(default "DH0:BlueByte/Moon")
)
)
(if (= (BITAND bi 1) 0)
(
(set z1 ("Assign DD2: \"%s\"\nAssign Computer: \"%s\"\n" Pfad3 (tackon Pfad3 "MAP")))
)
)
(set z3 ("Assign DD2: \"%s\"\nAssign LIB2: \"%s\"\n" Pfad3 (tackon Pfad3 "LIB")))
)
)
(set Libs (BITAND (BITNOT bi) bi2))
(if (= (BITAND LIBS 1) 1)
((makedir (tackon dir "LIB0"))
(makedir (tackon dir "Computer"))
(set z1 ("Assign Computer: \"%s\"\nAssign LIB0: \"%s\"\n" (tackon dir "Computer") (tackon dir "LIB0")))
(copyfiles
(source "BI2:LIB")
(dest (tackon dir "LIB0"))
(choices "Part.Lib" "Part.Tab" "Unit.Lib" "Unit.Tab")
)
(copyfiles
(source "BI2:MAP")
(dest (tackon dir "Computer"))
(pattern "#?.com")
)
)
)
(if (= (BITAND Libs 2) 2)
((makedir (tackon dir "LIB1"))
(set z2("Assign LIB1: \"%s\"\n" (tackon dir "LIB1")))
(copyfiles
(source "BI6:LIB")
(dest (tackon dir "LIB1"))
(choices "Part.Lib" "Part.Tab")
)
)
)
(if (= (BITAND Libs 4) 4)
((makedir (tackon dir "LIB2"))
(set z3 ("Assign LIB2: \"%s\"\n" (tackon dir "LIB2")))
(copyfiles
(source "DD2:LIB")
(dest (tackon dir "LIB2"))
(choices "Part.Lib" "Unit.Lib")
)
)
)
(textfile
(dest (tackon dir "Battle Field Creator"))
(append ("Assign BFC: \"%s\"\n" dir))
(append zz1)
(append zz2)
(append z1)
(append z2)
(append z3)
(append ("\"%s\"" (tackon dir "BFC")))
)